COMMENT ⊗   VALID 00010 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(declare 
C00006 00003	(baz 50)
C00007 00004
C00008 00005	dir *.tim/foo
C00010 00006	(load "fmeter.lsp")
C00011 00007	(fasload float)
C00012 00008	(fasload float)
C00015 00009	(fasload float)
C00022 00010
C00024 ENDMK
C⊗;
(declare 
 (fasload meter fas))
(declare 
 (setq meter:count-only t))

;(meter:meter baz
;	     (meter-funs ((+ "+'s")(= "='s"))
;			 (defun baz (n)
;				(do ((n n (1- n))
;				     (a 0))
;				    ((= n 0) a)
;				    (foo n)
;				    (setq a (+ a n)))) )
;	     (meter-funs ((+ "+'s")(= "='s"))
;			 (defun foo (n)
;				(do ((n n (1- n))
;				     (a 0))
;				    ((= n 0) a)
;				    (setq a (+ a n))))))

(meter:meter baz
	     (meter-funs ((+ "+'s")(= "='s")(foo "Calls to FOO"))
			 (defun baz (n)
				(mn "baz" baz)
				(do ((n n (1- n))
				     (a 0))
				    ((= n 0) a)
				    (foo n)
				    (setq a (+ a n)))))   
 	     (meter-funs ((+ "+'s")(= "='s"))
			 (defun foo (n)
				(mn "Foo" foo)
				(do ((n n (1- n))
				     (a 0))
				    ((= n 0) a)
				    (setq a (+ a n))))))


(meter:meter baz
	     (meter-funs ((cdr "cdr")(car "car")
				     (foo "Foo")(setq "Setq")
				     (cdar "car"car)(ztesch "Ztesch")
				     (cdar "cdr" cdr))
			 (defun baz (l)
				(setq l (ztesch l))
				(foo (car l)
				     (cdr l)
				     (cdar l)))))


;(baz 50)
;(meter:report-baz)
;Statistics
;= <calls> (<percentage>) [runtime (<percentage>)]
;
;Meter for: BAZ
;='s = 51 (33.77%) [0.0 (0.0%)]
;Calls to FOO = 50 (33.11%) [0.06 (100.0%)]
;+'s = 50 (33.11%) [0.0 (0.0%)]
;Total = 151	0.06
;
;Meter for: FOO
;='s = 1325 (50.96%) [0.02 (64.52%)]
;+'s = 1275 (49.04%) [0.011 (35.48%)]
;Total = 2600	0.031
;T 
;(baz 50)
;(meter:report-baz)
;Statistics
= <calls> (<percentage>)
;
;Meter for: BAZ
;='s = 51 (33.77%)
;Calls to FOO = 50 (33.11%)
;+'s = 50 (33.11%)
;Total = 151
;
;Meter for: FOO
;='s = 1325 (50.96%)
;+'s = 1275 (49.04%)
;Total = 2600

Meter for: MATCH
Cars = 1319800 (34.63%) [10.632 (19.37%)]
Eqs = 755700 (19.83%) [6.953 (12.67%)]
Nulls = 504100 (13.23%) [4.369 (7.96%)]
Cdrs = 483400 (12.68%) [3.852 (7.02%)]
Conses = 239200 (6.28%) [21.24 (38.69%)]
Char1 = 226800 (5.95%) [6.777 (12.35%)]
MATCH = 213600 (5.6%)
Nconcs = 69000 (1.81%) [1.071 (1.95%)]
Returns = 0 (0.0%) [0.0 (0.0%)]
Total = 3811600	[54.894]
dir *.tim/foo


copy jqj.tim←SCCPP.TIM[TIM,LSP],DOLPHI.TIM[TIM,LSP],780.TIM[TIM,LSP],DOLPH.TIM[TIM,LSP]
copy jqj.tim←jqj.tim,DERIV.TIM[TIM,LSP],TAK.TIM[TIM,LSP],DDERIV.TIM[TIM,LSP],FPRINT.TIM[TIM,LSP]
copy jqj.tim←jqj.tim,PUZZLE.TIM[TIM,LSP],FRPOLY.TIM[TIM,LSP],TAKL.TIM[TIM,LSP],TAKR.TIM[TIM,LSP]
copy jqj.tim←jqj.tim,CACHE.TIM[TIM,LSP],FFT.TIM[TIM,LSP],UNCACH.TIM[TIM,LSP],FDDERI.TIM[TIM,LSP]
copy jqj.tim←jqj.tim,F2.TIM[TIM,LSP],TRIANG.TIM[TIM,LSP],BROWSE.TIM[TIM,LSP],DIV2.TIM[TIM,LSP]
copy jqj.tim←jqj.tim,TPRINT.TIM[TIM,LSP],FREAD.TIM[TIM,LSP],BOYER.TIM[TIM,LSP],DESTRU.TIM[TIM,LSP]
copy jqj.tim←jqj.tim,PUZZL1.TIM[TIM,LSP],NREVER.TIM[TIM,LSP],TRAVER.TIM[TIM,LSP]


Exit
↑C
.
File already exists, DSK:JQJ.TIM[TIM,LSP].
Type Y to replace.
y


Exit
↑C
.
File already exists, DSK:JQJ.TIM[TIM,LSP].
Type Y to replace.

(plus 15339 2005 2005 1987 13)
(load "fmeter.lsp")
(setq meter:funs '((* "*")(+ "+")
			  (setq "setq's")
			  (1+ "1+'s")(store "Asets")
			  (- "-'s")(+ "+'s")(↑ "↑'s")(+$ "+$'s")(-$ "-$'s")(arraycall "Arefs")))

(fasload float)

(machar)

*ibeta*
*it*
*irnd*
*ngrd*
*machep*
*epsneg*
*negep*
*eps*
*iexp*
*minexp*
*maxexp*
*xmin* 
*xmax*

(let ((a (square-root 2.0))) (*$ a a))
(sq (square-root 2365.2343))
(defun sq (x)(*$ x x))
(plist 'sqrt)
(sqrt 2.0)
(square-root 2.0)
(fasload float)
(fasload float)
(sqrt-test)
(TEST OF SQRT (X * X) - X) 
(8000 RANDOM ARGUMENTS WERE TESTED IN THE INTERVAL (0.70710678 1.0)) 
(SQRT (X) WAS LARGER 618 TIMES) 
(IT AGREED 7382 TIMES) 
(IT WAS SMALLER 0 TIMES) 
(THERE ARE 27 BASE 2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER) 
(THE MAXIMUM RELATIVE ERROR OF 1.05350655E-8 = 2 ↑ -26.5002255 OCCURRED 
FOR X = 0.707217306) 
(THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 0.499774456) 
(THE ROOT MEAN SQUARE RELATIVE ERROR WAS 2.61463252E-9 = 2 ↑ -28.5107443) 
(THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 0.0) 
(TEST OF SQRT (X * X) - X) 
(8000 RANDOM ARGUMENTS WERE TESTED IN THE INTERVAL (1.0 1.41421357)) 
(SQRT (X) WAS LARGER 3928 TIMES) 
(IT AGREED 4072 TIMES) 
(IT WAS SMALLER 0 TIMES) 
(THERE ARE 27 BASE 2 SIGNIFICANT DIGITS IN A FLOATING-POINT NUMBER) 
(THE MAXIMUM RELATIVE ERROR OF 1.48971613E-8 = 2 ↑ -26.0003872 OCCURRED 
FOR X = 1.0002685) 
(THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 0.99961281) 
(THE ROOT MEAN SQUARE RELATIVE ERROR WAS 8.7896637E-9 = 2 ↑ -26.761545) 
(THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 0.238455057) 
(TEST OF SPECIAL ARGUMENTS) 
(SQRT (*XMIN*) = SQRT (2.93873587E-39) = 5.421011E-20) 
(SQRT (1.0 - *EPSNEG*) = SQRT (1.0 - 7.4505806E-9) = 1.0) 
(SQRT (1.0) = 1.00000001) 
(SQRT (1.0 + *EPS*) = SQRT (1.0 + 7.4505806E-9) = 1.00000001) 
(SQRT (*XMAX*) = SQRT (1.70141183E+38) = 1.30438179E+19) 
(TEST OF ERROR RETURNS) 
(SQRT WILL BE CALLED WITH AN ARGUMENT OF 0.0 THIS SHOULD NOT TRIGGER AN 
ERROR) 
(SQRT RETURNED THE VALUE 0.0) 
(SQRT WILL BE CALLED WITH AN ARGUMENT OF -1.0 THIS SHOULD TRIGGER AN ERROR) 
Square-root of a negative number
(SQRT RETURNED THE VALUE 0.0) 
(THIS CONCLUDES THE TESTS) 
T 
(fasload float)
(fasload machar)

(setq *results* ())
(step arctan-test)
(arctan-test)

(show-results)
arctan2 called with u = 0.0 and v = 0.0
T 
(TEST OF ARCTAN (X) VS TRUNCATED TAYLOR SERIES) 
(2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL (-0.0625 0.0625)) 
(ARCTAN (X) WAS LARGER 0 TIMES) 
(IT AGREED 2000 TIMES) 
(IT WAS SMALLER 0 TIMES) 
(THERE ARE 27 SIGNIFICANT BASE 2 DIGITS IN A FLOATING-POINT NUMBER) 
(THE MAXIMUM RELATIVE ERROR OF 0.0 = 2 ↑ -999.0 OCCURRED FOR X = 0.0) 
(THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 0.0) 
(THE ROOT MEAN SQUARE RELATIVE ERROR WAS 0.0 = 2 ↑ -999.0) 
(THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 0.0) 
(TEST OF ARCTAN (X) VS ARCTAN (1 // 16) + ARCTAN ((X - 1 // 16) // (1 + 
X // 16))) 
(2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL (0.0625 0.267949194)) 
(ARCTAN (X) WAS LARGER 305 TIMES) 
(IT AGREED 1301 TIMES) 
(IT WAS SMALLER 394 TIMES) 
(THERE ARE 27 SIGNIFICANT BASE 2 DIGITS IN A FLOATING-POINT NUMBER) 
(THE MAXIMUM RELATIVE ERROR OF 1.48773032E-8 = 2 ↑ -26.0023117 OCCURRED 
FOR X = 0.255769014) 
(THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 0.99768829) 
(THE ROOT MEAN SQUARE RELATIVE ERROR WAS 6.10085046E-9 = 2 ↑ -27.2883422) 
(THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 0.0) 
(TEST OF 2 * ARCTAN (X) VS ARCTAN (2X // (1 - X * X))) 
(2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL (0.267949194 0.414213568)) 
(ARCTAN (X) WAS LARGER 465 TIMES) 
(IT AGREED 1255 TIMES) 
(IT WAS SMALLER 280 TIMES) 
(THERE ARE 27 SIGNIFICANT BASE 2 DIGITS IN A FLOATING-POINT NUMBER) 
(THE MAXIMUM RELATIVE ERROR OF 2.8151059E-8 = 2 ↑ -25.0822356 OCCURRED 
FOR X = 0.271022182) 
(THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 1.91776443) 
(THE ROOT MEAN SQUARE RELATIVE ERROR WAS 7.2907918E-9 = 2 ↑ -27.0312774) 
(THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 0.0) 
(2000 RANDOM ARGUMENTS WERE TESTED FROM THE INTERVAL (0.414213568 1.0)) 
(ARCTAN (X) WAS LARGER 755 TIMES) 
(IT AGREED 1223 TIMES) 
(IT WAS SMALLER 22 TIMES) 
(THERE ARE 27 SIGNIFICANT BASE 2 DIGITS IN A FLOATING-POINT NUMBER) 
(THE MAXIMUM RELATIVE ERROR OF 1.8836265E-8 = 2 ↑ -25.6619117 OCCURRED 
FOR X = 0.41755109) 
(THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 1.33808827) 
(THE ROOT MEAN SQUARE RELATIVE ERROR WAS 6.77307993E-9 = 2 ↑ -27.1375408) 
(THE ESTIMATED LOSS OF BASE 2 SIGNIFICANT DIGITS IS 0.0) 
(SPECIAL TESTS) 
(THE IDENTITY: ARCTAN (-X) = -ARCTAN (X) WILL BE TESTED) 
(X : F (X) + F (-X)) 
(0.277842846 : 0.0) 
(4.7303558 : 0.0) 
(1.29447147 : 0.0) 
(1.80893339 : 0.0) 
(1.116675 : 0.0) 
(THE IDENTITY ARCTAN (X) = X FOR X SMALL WILL BE TESTED) 
(X : X - F (X)) 
(6.83125204E-9 : 0.0) 
(3.41562602E-9 : 0.0) 
(1.70781301E-9 : 0.0) 
(8.5390651E-10 : 0.0) 
(4.26953256E-10 : 0.0) 
(THE IDENTITY ARCTAN (X // Y) = ARCTAN2 (X Y) WILL BE TESTED) 
(THE FIRST COLUMN OF RESULTS SHOULD BE 0 AND THE SECOND SHOULD BE +-π) 
(X : Y : F1 (X // Y) - F2 (X Y) : F1 (X // Y) - F2 (X // -Y)) 
(0.437566936 : 0.173966983 : 0.0 : -3.14159265) 
(0.98349154 : 0.234110685 : 0.0 : -3.14159265) 
(-0.944657445 : 0.97945464 : 0.0 : 3.14159265) 
(-0.27268049 : 0.97873473 : 0.0 : 3.14159265) 
(-0.6326329 : 0.73022202 : 0.0 : 3.14159268) 
(TEST OF VERY SMALL ARGUMENT) 
(ARCTAN (1.2621776E-29) = 1.2621776E-29) 
(TEST OF ERROR RETURNS) 
(ARCTAN WILL BE CALLED WITH THE ARGUMENT 1.70141183E+38) 
(THIS SHOULD NOT TRIGGER AN ERROR MESSAGE) 
(ARCTAN (1.70141183E+38) = 1.57079633) 
(ARCTAN2 WILL BE CALLED WITH THE ARGUMENTS 1.0 0.0) 
(THIS SHOULD NOT TRIGGER AN ERROR MESSAGE) 
(ARCTAN2 (1.0 0.0) = 1.57079633) 
(ARCTAN2 WILL BE CALLED WITH THE ARGUMENTS 2.93873587E-39 1.70141183E+38) 
(THIS SHOULD NOT TRIGGER AN ERROR MESSAGE) 
(ARCTAN2 (2.93873587E-39 1.70141183E+38) = 1.57079633) 
(ARCTAN2 WILL BE CALLED WITH THE ARGUMENTS 1.70141183E+38 2.93873587E-39) 
(THIS SHOULD NOT TRIGGER AN ERROR MESSAGE) 
(ARCTAN2 (1.70141183E+38 2.93873587E-39) = 0.0) 
(ARCTAN2 WILL BE CALLED WITH THE ARGUMENTS 0.0 0.0) 
(THIS SHOULD TRIGGER AN ERROR MESSAGE) 
(ARCTAN2 (0.0 0.0) = 0.0) 
(THIS CONCLUDES THE TESTS) 
T